home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 5 / QRZ Ham Radio Callsign Database - Volume 5.iso / files / misc / bestbeam.bqs / BESTBEAM.BAS (.txt)
Encoding:
GW-BASIC  |  1995-01-07  |  20.1 KB  |  504 lines
  1. 1  LATHDEG=35     'home latitude degrees
  2. 2  LATHMIN=12     'home latitude minutes
  3. 3  LATH$="N"      'home latitude direction
  4. 4  LONGHDEG=80    'home longitude degrees
  5. 5  LONGHMIN=45   'home longitude minutes
  6. 6  LONGH$="W"     'home longitude direction
  7. 7  STATION$="MATTHEWS   NC"
  8. 8  COUNT=1
  9. 10  CLS
  10. 11  PRINT"     KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  11. 12  PRINT"     OPEN                   BEAM HEADING PROGRAM                        OPEN
  12. 13  PRINT"     OPEN                                                               OPEN
  13. 14  PRINT"     OPEN                           by                                  OPEN
  14. 15  PRINT"     OPEN                                                               OPEN
  15. 16  PRINT"     OPEN                 J. Scott Douglass  K2SD                       OPEN
  16. 17  PRINT"     TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE
  17. 18  PRINT"     OPEN                                                               OPEN
  18. 19  PRINT"     OPEN     CURRENT HOME LATITUDE  =                                  OPEN
  19. 20  PRINT"     OPEN     CURRENT HOME LONGITUDE =                                  OPEN
  20. 21  PRINT"     OPEN                                                               OPEN
  21. 22  PRINT"     OPEN                 New York City, New York                       OPEN
  22. 23  PRINT"     OPEN                                                               OPEN
  23. 24  PRINT"     OPEN                                                               OPEN
  24. 25  PRINT"     OPEN     Change Home Location                                      OPEN
  25. 26  PRINT"     OPEN                                                               OPEN
  26. 27  PRINT"     OPEN     Output to Printer (P) or Display (D)                      OPEN
  27. 28  PRINT"     OPEN                                                               OPEN
  28. 29  PRINT"     OPEN                                                               OPEN
  29. 30  PRINT"     OPEN                                                               OPEN
  30. 31  PRINT"     OPEN                                                               OPEN
  31. 32  PRINT"     SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  32. 100  PI=3.14159
  33. 110  REM BEAM HEADING PROGRAM
  34. 120  REM COPYRIGHT 1982 by J. Scott Douglass
  35. 130  REM                   Matthews, NC 28105
  36. 180  LOCATE 9,38:PRINT LATHDEG;" Degrees,";LATHMIN;"Minutes ";LATH$
  37. 190  LOCATE 10,38:PRINT LONGHDEG;" Degrees,";LONGHMIN;"Minutes ";LONGH$
  38. 195  LOCATE 12,24:X$=SPACE$(35):PRINT X$
  39. 200  LOCATE 12,24:PRINT STATION$
  40. 222  LOCATE 15,36:PRINT "POINT":R$=INKEY$:IF R$="" THEN 222
  41. 224  IF LEFT$(R$,1)="Y" THEN GOTO 2500
  42. 225  IF LEFT$(R$,1)="y" THEN GOTO 2500
  43. 230  LOCATE 17,49:PRINT "POINT":OUTDEV$=INKEY$:IF OUTDEV$="" THEN 230:COLOR 7
  44. 240  IF LEFT$(OUTDEV$,1)="D" THEN PSWITCH=0
  45. 250  IF LEFT$(OUTDEV$,1)="d" THEN PSWITCH=0
  46. 260  IF LEFT$(OUTDEV$,1)="P" THEN PSWITCH=1
  47. 270  IF LEFT$(OUTDEV$,1)="p" THEN PSWITCH=1
  48. 272  CLS:LOCATE 12,24:INPUT "PLEASE ENTER HOME CALL SIGN ";HOMECALL$
  49. 275  IF PSWITCH=1 THEN LPRINT CHR$(143)
  50. 276  IF PSWITCH=1 THEN GOSUB 10000
  51. 280  IF PSWITCH = 0 THEN GOTO 310
  52. 290  IF PSWITCH = 1 THEN GOTO 310
  53. 300  GOTO 10
  54. 310  CLS
  55. 320  RESTORE
  56. 330  READ PF$,CT$,LC$,LATTDEG,LATTMIN,LATT$,LONGTDEG,LONGTMIN,LONGT$
  57. 340  IF PF$="QQ" THEN GOTO 30000
  58. 350  A=(LATHDEG+(LATHMIN/60))*PI/180     ' CONVERT HOME LATITUDE TO RADIANS
  59. 360  B=(LATTDEG+(LATTMIN/60))*PI/180     ' TARGET LATITUDE IN RADIANS
  60. 370  HOMELONG=(LONGHDEG+(LONGHMIN/60))*PI/180  ' HOME LONGITUDE IN RADIANS
  61. 380  TARGLONG=(LONGTDEG+(LONGTMIN/60))*PI/180   ' TARGET LONGITUDE IN RADIANS
  62. 390  IF LATH$="S" THEN A=-A     ' SET UP SIGN CONVENTIONS
  63. 400  IF LATT$="S" THEN B=-B
  64. 410  IF LONGH$="E" THEN HOMELONG=-HOMELONG
  65. 420  IF LONGT$="E" THEN TARGLONG=-TARGLONG
  66. 430  L=HOMELONG-TARGLONG
  67. 440  IF L > PI THEN L=L-2*PI    ' MUST KEEP WITHIN + OR - 180 DEGREES
  68. 450  IF L < -PI THEN L=L+2*PI
  69. 460  COSL=COS(L)
  70. 470  COTB=1/TAN(B)           ' COTANGENT FUNCTION
  71. 480  TANPHI=COSL*COTB
  72. 490  PHI=ATN(TANPHI)
  73. 500  SINPHI=SIN(PHI)
  74. 510  COTL=1/TAN(L)
  75. 520  APLUS=A+PHI
  76. 530  COSAPLUS=COS(APLUS)
  77. 540  COTC=(COTL*COSAPLUS)/SINPHI
  78. 550  C=1.57096-ATN(COTC)
  79. 560  LSIGN=SGN(L)
  80. 570  CSIGN=SGN(C)
  81. 580  IF LSIGN=1 AND CSIGN=1 THEN C=C
  82. 590  IF LSIGN=1 AND CSIGN=-1 THEN C=C+PI
  83. 600  IF LSIGN=-1 AND CSIGN=1 THEN C=C+PI
  84. 610  IF LSIGN=-1 AND CSING=-1 THEN C=C+2*PI
  85. 620  C=CINT(C*180/PI)       ' convert radians to angle
  86. 630  CL=180+C:IF CL > 360 THEN CL=CL-360
  87. 640  REM now we will do the distance calculation
  88. 650  REM  cosD=sinAsinB+cosAcosBcosL
  89. 660  COSB=COS(B)
  90. 670  COSA=COS(A)
  91. 680  SINA=SIN(A)
  92. 690  SINB=SIN(B)
  93. 700  COSD=SINA*SINB+COSA*COSB*COSL
  94. 710  D=1.5708-ATN(COSD/SQR(1-COSD*COSD))  ' arc of great circle path
  95. 720  D=D*180/PI   'convert to degrees
  96. 730  DD=CINT(D)     ' take degrees only
  97. 740  NM=DD*60  ' each degree equals 60 nautical miles
  98. 750  DM=D-DD       ' take minutes only
  99. 760  DM=CINT(60*DM) ' convert decimal minutes to minute minutes
  100. 770  NM=NM+DM*1 ' each minute adds one additional nautical mile
  101. 780  SR=CINT(NM*1.1508)  'convert to statute miles
  102. 2000  IF PSWITCH=0 THEN GOTO 2020
  103. 2001  IF COUNT=56 THEN GOSUB 20000
  104. 2005  LPRINT PF$TAB(10)CT$TAB(30)LC$TAB(46);C;TAB(54);CL;TAB(62);SR
  105. 2006  COUNT=COUNT+1
  106. 2020  PRINT PF$TAB(10)CT$TAB(30)LC$TAB(46);C;TAB(54);CL;TAB(62);SR
  107. 2030  GOTO 330
  108. 2500  CLS:LOCATE 6
  109. 2505  INPUT "PLEASE ENTER NEW HOME LATITUDE (DEGREES,MINUTES,N/S)";LATHDEG,LATHMIN,LATH$
  110. 2506  IF LATHDEG > 90 THEN GOTO 2900
  111. 2507  IF LATHMIN > 59 THEN GOTO 2900
  112. 2510  PRINT:INPUT "PLEASE ENTER NEW HOME LONGITUDE (DEGREES,MINUTES,E/W)";LONGHDEG,LONGHMIN,LONGH$
  113. 2511  IF LONGHDEG >180 THEN GOTO 2900
  114. 2512  IF LONGHMIN > 59 THEN GOTO 2900
  115. 2515  PRINT:INPUT "PLEASE ENTER THE NAME OF THIS LOCATION ";STATION$
  116. 2520  COLOR 7:GOTO 10
  117. 2900  PRINT:PRINT:PRINT "INPUT ERROR - HIT ANY KEY TO TRY AGAIN ":INPUT;IN$
  118. 2901  GOTO 2500
  119. 3000  DATA A2,BOTSWANA,GABORONE,24,30,S,26,0,E
  120. 3005  DATA A35,TONGA,NUKUALOFA,21,0,S,175,0,W
  121. 3010  DATA A4X,OMAN,MUSCAT,23,40,N,58,30,E
  122. 3015  DATA A51,BHUTAN,THIMPHU,27,30,N,90,0,E
  123. 3020  DATA A6X,U. ARAB EMIRATES,,25,18,N,55,18,E
  124. 3025  DATA A7X,QATAR,DOHA,25,30,N,51,30,E
  125. 3030  DATA A9X,BAHRAIN,,26,10,N,50,40,E
  126. 3035  DATA AP,PAKISTAN,KARACHI,24,59,N,67,0,E
  127. 3040  DATA BV,TAIWAN,TAIPEI,25,02,N,121,38,E
  128. 3045  DATA BY,CHINA,PEKING,39,55,N,116,23,E
  129. 3050  DATA C2,REP. OF NAURU,,0,30,S,167,0,E
  130. 3055  DATA C3,ANDORRA,,42,38,N,1,30,E
  131. 3060  DATA C5,THE GAMBIA,BATHURST,13,20,N,15,55,W
  132. 3061  DATA C6,BAHAMAS,NASSAU,25,0,N,77,30,W
  133. 3062  DATA C9,MOZAMBIQUE,L. MARQUES,26,0,S,33,0,E
  134. 3063  DATA C9,MOZAMBIQUE,MOZAMBIQUE,15,0,S,41,0,E
  135. 3065  DATA CE,CHILE,SANTIAGO,33,28,S,70,55,W
  136. 3070  DATA CE0A,EASTER ISLAND,,28,0,S,109,0,W
  137. 3075  DATA CE0X,SAN FELIX,,26,20,S,80,10,W
  138. 3080  DATA CE0Z,JAUN FERNANDEZ,,34,0,S,78,0,W
  139. 3085  DATA CO,CUBA,HAVANA,23,08,N,82,23,W
  140. 3090  DATA CN,MOROCCO,CASABLANCA,33,0,N,8,0,W
  141. 3095  DATA CP,BOLIVIA,LA PAZ,16,31,S,68,03,W
  142. 3100  DATA CR3,GUINEA-BISSAU,,10,48,N,12,28,W
  143. 3105  DATA CR9,MACAO,,22,10,N,113,35,E
  144. 3110  DATA CT,PORTUGAL,LISBON,38,42,N,9,5,W
  145. 3115  DATA CT2,AZORES,,38,0,N,25,0,W
  146. 3120  DATA CT3,MADERIA,,32,41,N,16,15,W
  147. 3125  DATA CX,URUGUAY,MONTEVIDEO,34,50,S,56,10,W
  148. 3130  DATA D2,ANGOLA,LUANDA,8,48,S,13,14,E
  149. 3135  DATA D4,CAPE VERDE,,15,48,N,26,02,W
  150. 3140  DATA D6,COMOROS,,11,26,S,44,12,E
  151. 3145  DATA DA,GERMANY,BONN,51,0,N,6,0,E
  152. 3150  DATA DM,GERMANY,BERLIN,52,27,N,13,26,E
  153. 3155  DATA DU,PHILIPPINES,LUZON,17,10,N,119,45,E
  154. 3156  DATA DU,PHILIPPINES,MANILA,14,36,N,121,0,E
  155. 3160  DATA EA,SPAIN,MADRID,40,26,N,3,42,W
  156. 3165  DATA EA6,BALEARIC ISLANDS,,39,25,N,1,28,E
  157. 3170  DATA EA8,CANARY ISLANDS,,29,15,N,16,30,W
  158. 3175  DATA EA9,CEUTA,,36,04,N,5,36,W
  159. 3180  DATA EA9,MELILLA,,35,24,N,3,30,W
  160. 3185  DATA EI,REP IRELAND,DUBLIN,53,20,N,6,15,W
  161. 3190  DATA EL,LIBERIA,MONROVIA,6,18,N,10,47,W
  162. 3195  DATA EP,IRAN,TEHRAN,35,45,N,51,30,E
  163. 3200  DATA ET,ETHIOPIA,ADDIS ABABA,9,0,N,38,44,E
  164. 3201  DATA ET,ETHIOPIA,ASMARA,15,0,N,38,0,N
  165. 3205  DATA F,FRANCE,PARIS,48,51,N,2,20,E
  166. 3210  DATA FB8W,CROZET,,46,20,S,51,30,E
  167. 3215  DATA FB8X,KERGUELEN,,49,50,S,69,30,E
  168. 3220  DATA FB8Z,AMSTERDAM ISL,,37,0,S,75,0,E
  169. 3225  DATA FC,CORSICA,,42,10,N,8,55,E
  170. 3230  DATA FG,GUADELOUPE,,16,40,N,61,10,W
  171. 3235  DATA FS,ST. MARTIN,,18,6,N,62,54,W
  172. 3240  DATA FH,MAYOTTE,,13,7,S,45,32,E
  173. 3245  DATA FK,NEW CALEDONIA,,21,28,S,167,0,E
  174. 3250  DATA FM,MARTINIQUE,,14,50,N,60,40,W
  175. 3255  DATA FO,CLIPPERTON ISL.,,11,0,N,110,0,W
  176. 3260  DATA FO,FR. POLYNESIA,,17,30,S,149,30,W
  177. 3265  DATA FP,ST. PIERRE,,46,47,N,56,11,W
  178. 3270  DATA FR,GLORIOSO ISL.,,11,28,S,47,50,E
  179. 3275  DATA FR,JUAN DE NOVA,,21,50,S,40,0,E
  180. 3280  DATA FR,REUNION,,21,6,S,55,36,E
  181. 3285  DATA FR,TROMELIN,,15,30,S,54,30,E
  182. 3286  DATA FS,ST. MARTIN,,18,0,N,63,0,W
  183. 3290  DATA FW,WALLIS & FUTUNA,,13,0,S,176,10,E
  184. 3295  DATA FY,FR. GUIANA,CAYENNE,4,56,N,52,18,W
  185. 3300  DATA G,ENGLAND,LONDON,51,30,N,0,7,W
  186. 3305  DATA GD,ISLE OF MANN,,54,10,N,4,24,W
  187. 3310  DATA GI,N. IRELAND,BELFAST,54,36,N,5,45,W
  188. 3315  DATA GJ,JERSEY,,49,13,N,2,7,W
  189. 3320  DATA GM,SCOTLAND,GLASGOW,55,54,N,4,25,W
  190. 3325  DATA GU,GUERNSEY,,49,27,N,2,36,W
  191. 3330  DATA GW,WALES,CARDIFF,51,30,N,3,18,W
  192. 3335  DATA H4,SOLOMONS,,9,48,S,158,43,E
  193. 3340  DATA HA,HUNGARY,BUDAPEST,47,30,N,19,5,E
  194. 3345  DATA HB9,SWITZERLAND,GENEVA,46,14,N,6,4,E
  195. 3350  DATA HB0,LIECHTENSTEIN,,47,10,N,9,32,E
  196. 3355  DATA HC,ECUADOR,QUITO,0,17,S,78,32,W
  197. 3360  DATA HC8,GALAPAGOS ISLS.,,0,10,S,92,0,W
  198. 3365  DATA HH,HAITI,PORTA-PRINCE,18,35,N,72,20,W
  199. 3370  DATA HI,DOMINICAN REP.,,18,20,N,69,55,W
  200. 3375  DATA HK,COLOMBIA,BOGOTA,4,38,N,74,6,W
  201. 3380  DATA HK0,BAJO NUEVO,,15,50,N,78,50,W
  202. 3385  DATA HK0,MALPELO,,3,55,N,81,30,W
  203. 3390  DATA HK0,SAN ANDRES,,12,30,N,81,44,W
  204. 3391  DATA HK0,SERRANA BANK,,14,18,N,81,18,W
  205. 3395  DATA HM,KOREA,SEOUL,37,35,N,127,3,E
  206. 3400  DATA HP,PANAMA,PANAMA CITY,8,35,N,81,8,W
  207. 3405  DATA HR,HONDURAS,TEGULIGALPA,14,8,N,87,15,W
  208. 3410  DATA HS,THAILAND,BANKOK,13,50,N,100,29,E
  209. 3415  DATA HV,VATICAN CITY,,41,54,N,12,22,E
  210. 3416  DATA HZ,SAUDI ARABIA,MECCA,22,0,N,40,0,E
  211. 3417  DATA HZ,SAUDI ARABIA,DHARAN,26,18,N,50,0,E
  212. 3420  DATA I,ITALY,ROME,41,52,N,12,37,E
  213. 3421  DATA I,ITALY,TRIESTE,45,30,N,14,0,E
  214. 3425  DATA IS,SARDINIA,,40,8,N,9,5,E
  215. 3426  DATA IT,ITALY,SICILY,37,30,N,14,0,E
  216. 3430  DATA J2,DJIBOUTI,,12,0,N,43,0,E
  217. 3435  DATA J3,GRENADA,,12,2,N,61,15,W
  218. 3436  DATA J5,GUINEA-BISSAU,,12,0,N,15,0,W
  219. 3437  DATA J6,ST. LUCIA,,14,0,N,61,0,W
  220. 3438  DATA J7,DOMINICA,,15,24,N,61,18,W
  221. 3440  DATA JA,JAPAN,TOYKO,35,41,N,139,44,E
  222. 3445  DATA JD,MINAMI TORI-SHIMA,,24,0,N,155,0,E
  223. 3450  DATA JD,OGASAWARA,,26,30,N,141,0,E
  224. 3460  DATA JT,MONGOLIA,ULAN BATOR,47,56,N,107,0,E
  225. 3465  DATA JW,SVALBARD,,78,0,N,16,0,E
  226. 3470  DATA JX,JAN MAYEN,,70,59,N,8,5,W
  227. 3475  DATA JY,JORDON,AMMAN,31,57,N,35,57,E
  228. 3485  DATA KC4,ANTARCTICA,BYRD STATION,80,0,S,120,0,W
  229. 3490  DATA KC4,ANTARCTICA,McMURDO,77,30,S,167,0,E
  230. 3495  DATA KC4,ANTARCTICA,PALMER,65,0,S,64,0,W
  231. 3500  DATA KC6,E. CAROLINE ISL.,,8,0,N,158,0,E
  232. 3505  DATA KC6,W. CAROLINE ISL.,,9,30,N,138,12,E
  233. 3510  DATA KG4,GUATAB(TANAMO BAY,,20,0,N,75,0,W
  234. 3515  DATA KH1,BAKER-AM PHOENIX,,0,30,N,176,0,W
  235. 3520  DATA KH2,GUAM,,14,0,N,145,0,E
  236. 3525  DATA KH3,JOHNSTON ISLAND,,17,0,N,170,0,W
  237. 3530  DATA KH4,MIDWAY ISLAND,,28,0,N,177,30,W
  238. 3535  DATA KH5,PALMYRA ISLAND,,6,0,N,162,0,W
  239. 3540  DATA KH5K,KINGMAN REEF,,7,30,N,162,48,W
  240. 3545  DATA KH6,HAWAII,HILO,19,42,N,155,6,W
  241. 3550  DATA KH6,HAWAII,HONOLULU,21,18,N,157,54,W
  242. 3555  DATA KH7,KURE ISLAND,,28,30,N,178,30,W
  243. 3560  DATA KH8,AMERICAN SAMOA,,14,0,S,171,0,W
  244. 3565  DATA KH9,WAKE ISLAND,,19,0,N,167,0,E
  245. 3570  DATA KH0,MARIANA ISLAND,SAIPAN,16,0,N,146,0,E
  246. 3575  DATA KL7,ALASKA,ADAK,51,48,N,176,36,W
  247. 3580  DATA KL7,ALASKA,ANCHORAGE,61,12,N,150,0,W
  248. 3585  DATA KL7,ALASKA,FAIRBANKS,64,48,N,147,54,W
  249. 3590  DATA KL7,ALASKA,JUNEAU,58,18,N,134,24,W
  250. 3595  DATA KL7,ALASKA,NOME,64,30,N,165,24,W
  251. 3600  DATA KP1,NAVASSA ISLAND,,18,0,N,75,0,W
  252. 3605  DATA KP2,VIRGIN ISLANDS,,18,0,N,64,30,W
  253. 3610  DATA KP4,DESECHEO ISLAND,,18,18,N,67,30,W
  254. 3615  DATA KP4,PUERTO RICO,SAN JUAN,18,30,N,66,12,W
  255. 3620  DATA KX,MARSHALL ISLANDS,,12,0,N,167,0,E
  256. 3625  DATA LA-LJ,NORWAY,OSLO,60,0,N,10,42,E
  257. 3630  DATA LU,ARGENTINA,BUENOS AIRES,34,36,S,58,24,W
  258. 3635  DATA LX,LUXEMBOURG,,49,0,N,6,30,E
  259. 3640  DATA LZ,BULGARIA,SOFIA,42,42,N,23,18,E
  260. 3645  DATA OA,PERU,LIMA,12,0,S,77,0,W
  261. 3650  DATA OD,LEBANON,BEIRUT,33,54,N,35,30,E
  262. 3655  DATA OE,AUSTRIA,VIENNA,48,12,N,16,18,E
  263. 3660  DATA OH,FINLAND,HELSINKI,60,12,N,25,0,E
  264. 3665  DATA OH0,ALAND ISLAND,,60,12,N,20,0,E
  265. 3670  DATA OJ0,MARKET,,60,18,N,19,0,E
  266. 3675  DATA OK,CZECHOSLOVAKIA,PRAGUE,50,6,N,14,24,E
  267. 3680  DATA ON,BELGIUM,BRUSSELS,50,54,N,4,24,E
  268. 3685  DATA OX-XP,GREENLAND,GODTHAAB,63,0,N,52,0,W
  269. 3690  DATA OY,FAEROE,,62,0,N,7,0,W
  270. 3695  DATA OZ,DENMARK,COPENHAGEN,55,42,N,12,36,E
  271. 3700  DATA P2,PAPUA NEW GUINEA,MADANG,5,12,S,145,36,E
  272. 3705  DATA P2,PAPUA NEW GUIAEA,P. MORESBY,9,24,S,147,6,E
  273. 3710  DATA PA-PI,NETHERLANDS,AMSTERDAM,52,24,N,4,54,E
  274. 3715  DATA PJ,NETH. ANTILLES,,12,0,N,69,0,W
  275. 3720  DATA PJ,ST. MAARTEN,SABA,18,0,N,63,0,W
  276. 3725  DATA PT2,BRAZIL,BRASILLIA,16,0,S,48,0,W
  277. 3730  DATA PY6,BRAZIL,RIO DE JANEIRO,23,0,S,43,12,W
  278. 3735  DATA PY6,BRAZIL,NATAL,6,0,S,35,12,W
  279. 3740  DATA PY0,FERNANDO DE NORONHA,,3,0,S,32,0,W
  280. 3745  DATA PY0,ST. PETER & PAULS,,1,30,N,30,0,W
  281. 3750  DATA PY0,TRINDADE & M. VAZ,,19,0,N,29,0,W
  282. 3755  DATA PZ,SURINAM,,6,0,S,55,0,W
  283. 3760  DATA S2,BANGLADESH,DACCA,24,0,N,90,30,E
  284. 3765  DATA S7,SEYCHELLES ISLANDS,,4,0,S,56,0,E
  285. 3770  DATA S9,SAO TOME,,0,18,N,6,0,E
  286. 3775  DATA SK-SM,SWEDEN,STOCKHOLM,59,18,N,18,6,E
  287. 3780  DATA SP,POLAND,CRACOW,50,0,N,20,0,E
  288. 3785  DATA SP,POLAND,WARSAW,52,12,N,21,0,E
  289. 3790  DATA ST,SUDAN,KHARTOUM,15,30,N,32,30,E
  290. 3795  DATA ST0,SOUTHERN SUDAN,JUBA,5,0,N,31,36,E
  291. 3800  DATA SU,EGYPT,CAIRO,30,0,N,31,24,E
  292. 3805  DATA SV,CRETE,,34,24,N,25,12,E
  293. 3810  DATA SV,DODECANESE,,36,30,N,27,30,E
  294. 3815  DATA SV,GREECE,ATHENS,38,0,N,23,42,E
  295. 3820  DATA SV,MT. ATHOS,,40,12,N,24,18,E
  296. 3825  DATA T2,TUVALU,FUNAFUTI,8,42,S,178,36,E
  297. 3830  DATA T3,KIRIBATI,CENTRAL,4,0,S,171,0,W
  298. 3835  DATA T3,KIRIBATI,WEST,5,0,S,175,0,E
  299. 3840  DATA T3,KIRIBATI,EAST,10,0,S,150,0,W
  300. 3845  DATA TA,TURKEY,ANKARA,39,54,N,32,54,E
  301. 3850  DATA TF,ICELAND,REYKJAVIK,64,6,N,22,0,W
  302. 3855  DATA TG,GUATEMALA,G. CITY,14,36,N,90,30,W
  303. 3860  DATA TI,COSTA RICA,,10,0,N,84,0,W
  304. 3865  DATA TI9,COCOS ISLAND,,5,0,N,87,0,W
  305. 3870  DATA TJ,CAMEROON,YAOUNDE,4,0,N,12,0,E
  306. 3875  DATA TL,CENTRAL AF. REP.,BANGUI,4,30,N,18,0,E
  307. 3880  DATA TN,REP. OF CONGO,BRAZZAVILLE,4,0,S,15,0,E
  308. 3885  DATA TR,GABON,LIBREVILLE,0,30,N,9,0,E
  309. 3890  DATA TT,CHAD,FT. LAMY,12,0,N,15,0,E
  310. 3895  DATA TU,IVORY COAST,ABIDJAN,5,30,N,4,0,W
  311. 3900  DATA TY,BENIN,,6,18,N,2,18,E
  312. 3905  DATA TZ,MALI REPUBLIC,BAMAKO,13,0,N,8,0,W
  313. 3910  DATA UA1,EUR. RUSSIA,LENINGRAD,60,0,N,30,0,E
  314. 3915  DATA UA3,EUR. RUSSIA,MOSCOW,56,0,N,37,30,E
  315. 3920  DATA UA4,EUR. RUSSIA,KUIBYSHEV,53,30,N,50,30,E
  316. 3925  DATA UA6,EUR. RUSSIA,ROSTOV,47,0,N,40,0,E
  317. 3930  DATA UA1,FRANZ JOSEF LAND,,80,0,N,50,0,E
  318. 3935  DATA UA2,KALININGRAD,,55,0,N,20,30,E
  319. 3940  DATA UA9-0,ASIATIC RUSSIA,NOVOSIBIRSK,55,0,N,83,0,E
  320. 3945  DATA UA9,ASIATIC RUSSIA,PERM,57,30,N,56,0,E
  321. 3950  DATA UA0,ASIATIC RUSSIA,KHABAROVSK,48,0,N,135,0,E
  322. 3955  DATA UA0,ASIATIC RUSSIA,KRASNOYARSK,56,0,N,93,0,E
  323. 3960  DATA UA0,ASIATIC RUSSIA,YAKUTSK,62,0,N,130,0,E
  324. 3965  DATA UB5,UKRAINE,KIEV,50,30,N,31,0,E
  325. 3970  DATA UC2,WHITE RUSSIA,MINSK,54,0,N,27,30,E
  326. 3975  DATA UD6,AZERBAIJAN,BAKU,40,30,N,50,0,E
  327. 3980  DATA UF6,GEORGIA,TBILISI,41,30,N,45,0,E
  328. 3985  DATA UG6,ARMENIA,ERIVAN,40,30,N,44,30,E
  329. 3990  DATA UH8,TURKOMAN,ASHKHABAD,38,0,N,58,0,E
  330. 3995  DATA UI8,UZBEK,BUKHARA,40,0,N,64,0,E
  331. 4000  DATA UJ8,TADZHIK,SAMARKAND,39,30,N,67,0,E
  332. 4005  DATA UL7,KAZAKH,ALMA-ATA,53,0,N,76,0,E
  333. 4010  DATA UM8,KIRGHIZ,,42,0,N,75,0,E
  334. 4015  DATA UO5,MOLDAVIA,KISHINEV,47,0,N,29,0,E
  335. 4020  DATA UP2,LITHUANIA,VILNA,54,30,N,25,30,E
  336. 4025  DATA UQ2,LATVIA,RIGA,57,0,N,24,0,E
  337. 4030  DATA UR2,ESTONIA,TALLINN,59,0,N,25,0,E
  338. 4035  DATA VE1,SABLE ISLAND,,43,48,N,60,0,W
  339. 4040  DATA VE1,ST. PAUL ISLAND,,47,12,N,60,6,W
  340. 4045  DATA VK1,AUSTRALIA,CANBERRA,35,30,S,149,0,E
  341. 4050  DATA VK2,AUSTRALIA,SYDNEY,34,0,S,151,0,E
  342. 4055  DATA VK3,AUSTRALIA,MELBOURNE,38,0,S,145,0,E
  343. 4060  DATA VK4,AUSTRALIA,BRISBANE,27,30,S,153,0,E
  344. 4065  DATA VK5,AUSTRALIA,ADELAIDE,34,54,S,138,36,E
  345. 4070  DATA VK6,AUSTRALIA,PERTH,32,0,S,115,54,E
  346. 4075  DATA VK7,AUSTRALIA,TASMANIA,42,54,S,147,18,E
  347. 4080  DATA VK8,AUSTRALIA,DARWIN,12,30,S,130,54,E
  348. 4085  DATA VK2,LORD HOWE ISLAND,,31,36,S,159,6,E
  349. 4090  DATA VK9,CHRISTMAS ISLAND,,10,30,S,105,42,E
  350. 4095  DATA VK9,COCOS (KEELING) IS.,,12,12,S,96,48,E
  351. 4100  DATA VK9,MELLISH REEF,,17,36,S,155,48,E
  352. 4105  DATA VK9,NORFOLK ISLAND,,29,0,S,168,0,E
  353. 4110  DATA VK9,WILLIS ISLAND,,16,0,S,149,30,E
  354. 4115  DATA VK0,HEARD ISLAND,,53,0,S,73,24,E
  355. 4120  DATA VK0,MACQUARIE ISLAND,,54,42,S,158,48,E
  356. 4125  DATA VP1,BELIZE,,17,30,N,88,18,W
  357. 4130  DATA VP2A,ANTIGUA,,17,0,N,59,48,W
  358. 4135  DATA VP2E,ANGUILLA,,18,18,N,63,0,W
  359. 4140  DATA VP2K,ST. KITTS & NEVIS,,17,18,N,62,36,W
  360. 4145  DATA VP2M,MONTSERRAT,,16,48,N,62,12,W
  361. 4150  DATA VP2S,ST. VINCENT,,13,18,N,61,18,W
  362. 4155  DATA VP2V,BRITISH VIRGIN IS.,,18,24,N,64,36,W
  363. 4160  DATA VP5,TURKS & CAICOS IS.,,22,0,N,72,0,W
  364. 4165  DATA VP8,FALKLAND ISLANDS,,52,0,S,60,0,W
  365. 4170  DATA VP8,SO. GEORGIA ISL.,,54,0,S,37,0,W
  366. 4175  DATA VP8,SO. ORKNEY IS.,,60,0,S,46,0,W
  367. 4180  DATA VP8,SO. SANDWICH IS.,,57,0,S,28,0,W
  368. 4185  DATA VP8,SO. SHETLAND IS.,,62,0,S,58,30,W
  369. 4190  DATA VP9,BERMUDA,,32,18,N,64,42,W
  370. 4195  DATA VQ9,CHAGOS,DIEGO GARCIA,7,18,S,72,24,E
  371. 4200  DATA VR6,PITCAIRN IS.,,25,6,S,130,6,W
  372. 4205  DATA VS6,BRUNEI,,5,0,N,115,0,E
  373. 4210  DATA VS6,HONG KONG,,22,30,N,114,0,E
  374. 4215  DATA VS9K,KAMARAN IS.,,15,18,N,42,48,E
  375. 4220  DATA VU,INDIA,BOMBAY,19,0,N,72,48,E
  376. 4225  DATA VU,INDIA,CALCUTTA,22,36,N,88,24,E
  377. 4230  DATA VU,INDIA,NEW DELHI,28,0,N,77,0,E
  378. 4235  DATA VU7,ANDAMAN IS.,,10,0,N,94,0,E
  379. 4240  DATA VU7,LACCADIVE IS.,,10,0,N,70,0,E
  380. 4245  DATA XE1,MEXICO,MEXICO CITY,19,24,N,99,6,W
  381. 4250  DATA XE2,MEXICO,CHIHUAHHA,28,42,N,106,0,W
  382. 4255  DATA XE3,MEXICO,MERIDA,21,0,N,89,42,W
  383. 4260  DATA XF4,REVILLA GIGEDO IS.,,18,0,N,112,0,W
  384. 4265  DATA XT,UPPER VOLTA,,12,18,N,1,42,W
  385. 4270  DATA XU,KHMER REP.,PHNOM PENH,11,30,N,105,0,E
  386. 4275  DATA XV,VIETNAM,SAIGON,10,48,N,106,42,E
  387. 4280  DATA XW,LAO PEOPLES D. REP.,,18,0,N,102,30,E
  388. 4285  DATA XZ,BURMA,RANGOON,16,48,N,96,0,E
  389. 4290  DATA Y2-9,GERMAN DEM. REP.,BERLIN,52,30,N,13,24,E
  390. 4295  DATA YA,AFGHANISTAN,KANDAHAR,32,0,N,65,0,E
  391. 4300  DATA YB-YC,INDONESIA,,6,0,S,107,0,E
  392. 4305  DATA YI,IRAQ,BAGHDAD,33,0,N,44,30,E
  393. 4310  DATA YJ,NEW HEBRIDES,VILLA,18,0,S,168,0,E
  394. 4315  DATA YK,SYRIA,,34,0,N,36,30,E
  395. 4320  DATA YN-HT,NICARAGUA,MANAGUA,12,0,N,86,0,W
  396. 4325  DATA YO,ROMANIA,BUCHAREST,44,24,N,26,6,E
  397. 4330  DATA YS,EL SALVADOR,,14,0,N,89,0,W
  398. 4335  DATA YU,YUGOSLAVIA,BELGRADE,44,54,N,20,30,E
  399. 4340  DATA YV,VENEZUELA,CARACAS,10,30,N,67,0,W
  400. 4345  DATA YV0,AVES ISLAND,,12,0,N,67,30,W
  401. 4350  DATA ZA,ALBANIA,TIRANA,41,30,N,19,30,E
  402. 4355  DATA ZB,GIBRALTAR,,36,0,N,5,30,W
  403. 4360  DATA ZD7,ST. HELENA,,16,0,S,6,0,W
  404. 4365  DATA ZD8,ASCENSION IS.,,8,0,S,14,0,W
  405. 4370  DATA ZD9,TRISTAN DA CUNHA,,38,0,S,20,0,W
  406. 4375  DATA ZE,ZIMBABWE,SALISBURY,18,0,S,31,0,E
  407. 4380  DATA ZF,CAYMAN IS.,,19,30,N,81,12,W
  408. 4385  DATA ZK1,COOK IS. (N),MANIHIKI,10,30,S,161,0,W
  409. 4390  DATA ZK1,COOK IS. (S),RARATONGA,21,0,S,159,30,W
  410. 4395  DATA ZK2,NIUE IS.,,19,0,S,170,0,W
  411. 4400  DATA ZL1,NEW ZEALAND,AUCKLAND,36,54,S,174,48,E
  412. 4405  DATA ZL2,NEW ZEALAND,WELLINGTON,41,18,S,174,48,E
  413. 4410  DATA ZL3,NEW ZEALAND,CHRISTCHURCH,43,0,S,172,30,E
  414. 4415  DATA ZL4,NEW ZEALAND,DUNEDIN,46,0,S,170,0,E
  415. 4420  DATA ZL5,ANTARCTICA,SCOTT BASE,78,0,S,165,0,E
  416. 4425  DATA ZL,AUCKLAND & CAMPBELL,,52,30,S,169,0,E
  417. 4430  DATA ZL,CHARHAM IS.,,44,0,S,176,0,W
  418. 4435  DATA ZL,KERMADEC IS.,,30,0,S,178,0,W
  419. 4440  DATA ZM7,TOKELAUS,,11,0,S,165,0,W
  420. 4445  DATA ZP,PARAGUAY,ASUNCION,25,18,S,57,42,W
  421. 4450  DATA ZS1,SO. AFRICA,CAPE TOWN,33,54,S,18,24,E
  422. 4455  DATA ZS5,SO. AFRICA,DURBAN,29,54,S,30,54,E
  423. 4460  DATA ZS6,SO. AFRICA,JOHANNESBURG,26,12,S,28,6,E
  424. 4465  DATA ZS2,P. EDWARD & MARION,,46,48,S,37,48,E
  425. 4470  DATA 1A,S.W.O.M.,,41,54,N,12,24,E
  426. 4475  DATA 1S,SPRATLY IS.,,8,48,N,111,54,E
  427. 4480  DATA 3A,MONACO,,44,0,N,7,30,E
  428. 4485  DATA 3B8,MAURITIUS,,20,18,S,57,30,E
  429. 4490  DATA 3B9,RODRIGUEZ,,19,42,S,63,24,E
  430. 4495  DATA 3C,EQUATORIAL GUINEA,,1,48,N,10,0,E
  431. 4500  DATA 3C0,ANNOBON,,3,30,N,8,30,E
  432. 4505  DATA 3D2,FIJI IS.,,17,0,S,178,0,E
  433. 4510  DATA 3D6,SWAZILAND,,27,0,S,31,30,E
  434. 4515  DATA 3V,TUNISIA,TUNIS,36,48,N,10,12,E
  435. 4520  DATA 3X,REP. OF GUINEA,CONAKRY,10,0,N,13,0,W
  436. 4525  DATA 3Y,BOUVET IS.,,54,30,S,3,0,E
  437. 4530  DATA 4S,SRI LANKA,COLOMBO,7,0,N,79,54,E
  438. 4535  DATA 4U,ITU GENEVA,,46,12,N,6,12,E
  439. 4540  REM DATA 4U,UNITED NATIONS HQ,,40,48,N,74,0,W
  440. 4545  DATA 4W,YEMAN,,15,0,N,44,0,E
  441. 4550  DATA 4X-4Z,ISRAEL,,32,0,N,35,0,E
  442. 4555  DATA 5A,LIBYA,TRIPOLI,32,30,N,12,30,E
  443. 4560  DATA 5B-ZC,CYPRUS,,35,0,N,33,0,E
  444. 4565  DATA 5H,TANZANIA,DAR ES SALAAM,7,0,S,39,30,E
  445. 4570  DATA 5N,NIGERIA,LAGOS,6,30,N,3,0,E
  446. 4575  DATA 5R,MALAGASY REP,TANANARIVE,18,30,S,47,0,E
  447. 4580  DATA 5T,MAURITANIA,NOUAKCHOTT,18,0,N,16,0,W
  448. 4585  DATA 5U,NIGER,NIAMEY,13,30,N,2,0,E
  449. 4590  DATA 5V,TOGO,,6,0,N,1,30,E
  450. 4595  DATA 5W,WESTERN SAMOA,,13,0,S,172,0,W
  451. 4600  DATA 5X,UGANDA,,1,0,N,32,30,E
  452. 4605  DATA 5Z,KENYA,NAIROBI,1,30,S,37,30,E
  453. 4610  DATA 6O,SOMALI,MOGADISHO,2,0,N,46,0,E
  454. 4615  DATA 6W,SENEGAL,DAKAR,15,0,N,18,0,W
  455. 4620  DATA 6Y,JAMAICA,,18,0,N,76,0,W
  456. 4625  DATA 7O,YEMAN P. DEM.,ADEN,13,0,N,45,0,E
  457. 4630  DATA 7P,LESOTHO,,29,30,S,28,0,E
  458. 4635  DATA 7Q,MALAWI,ZOMBA,15,0,S,35,0,E
  459. 4640  DATA 7X,ALGERIA,ALGIERS,36,42,N,3,0,E
  460. 4645  DATA 8P,BARBADOS,,11,30,N,59,30,W
  461. 4650  DATA 8Q,MALDIVE IS.,,0,30,N,73,0,E
  462. 4655  DATA 8R,GUYANA,GEORGETOWN,6,48,N,58,12,W
  463. 4660  DATA 8Z4,IRAQ NEUT.ZONE,SAMAH,27,48,N,47,0,E
  464. 4665  DATA 9A-M1,SAN MARINO,,44,0,N,13,0,E
  465. 4670  DATA 9G,GHANA,ACCRA,5,30,N,0,12,W
  466. 4675  DATA 9H,MALTA,,36,0,N,14,24,E
  467. 4680  DATA 9J,ZAMBIA,LUSAKA,15,0,S,28,0,E
  468. 4685  DATA 9K,KUWAIT,,29,0,N,48,0,E
  469. 4690  DATA 9L,SIERRA LEONE,FREETOWN,8,30,N,13,12,W
  470. 4695  DATA 9M2,WEST MALAYSIA,,3,0,N,102,0,E
  471. 4700  DATA 9M6,EAST MALAYSIA,SABAH,5,0,N,117,0,E
  472. 4705  DATA 9M8,EAST MALAYSIA,SARAWAK,2,0,N,113,0,E
  473. 4710  DATA 9N,NEPAL,KATMANDU,27,30,N,85,0,E
  474. 4715  DATA 9Q,ZAIRE,KINSHASA,4,18,S,15,18,E
  475. 4720  DATA 9Q,ZAIRE,KISANGANI,1,0,N,25,0,E
  476. 4725  DATA 9Q,ZAIRE,LUBUMBASHI,12,0,S,27,30,E
  477. 4730  DATA 9U,BURUNDI,,3,0,S,29,0,E
  478. 4735  DATA 9V,SINGAPORE,,1,18,N,103,48,E
  479. 4740  DATA 9X,RWANDA,,1,30,S,30,0,E
  480. 4745  DATA 9Y,TRINIDAD IS.,,11,0,N,62,30,W
  481. 4750  DATA --,ABU AIL,,27,30,N,50,0,E
  482. 9999  DATA QQ,QQ,QQ,0,0,Q,0,0,Q
  483. 10000  REM SUBROUTINE TO PRINT PAGE HEADER
  484. 10005  LPRINT CHR$(155)CHR$(142);"      BEAM HEADINGS FOR ";HOMECALL$;CHR$(155)
  485. 10010  LPRINT "BASED ON  ";LATHDEG;"DEG ";LATHMIN;"MIN ";LATH$;"  ";LONGHDEG;"DEG ";LONGHMIN;" MIN ";LONGH$;"   ";STATION$
  486. 10014  LPRINT "PFX      COUNTRY             CITY             SP      LP      MILES"
  487. 10015  LPRINT "----------------------------------------------------------------------"
  488. 10020  RETURN
  489. 20000  COUNT=1
  490. 20005  LPRINT CHR$(140)   'FORM FEED TO PRINTER
  491. 20010  GOSUB 10000        'PRINT HEADER ON PAGE
  492. 20015  RETURN
  493. 30000  LPRINT:LPRINT:LPRINT:LPRINT:LPRINT
  494. 30005  LPRINT "THIS LISTING WAS PRODUCED BY A PROGRAM WRITTEN BY J. SCOTT DOUGLASS, K2SD"
  495. 30010  LPRINT "2440 WILLIAMS ROAD, MATTHEWS, NC 28105"
  496. 30015  LPRINT "LATITUDE AND LONGITUDE DATA WAS TAKEN FROM THE 1982 ARRL ANTENNA HANDBOOK."
  497. 30020  LPRINT "PLEASE REPORT ANY ERRORS IN THE LATITUDE AND LONGITUDE DATA TO THE
  498. 30021  LPRINT "ABOVE ADDRESS."
  499. 30025  LPRINT
  500. 30030  LPRINT "THIS PROGRAM MAY BE FREELY COPIED AND DISTRUBUTED AS NEEDED. PLEASE"
  501. 30035  LPRINT "RETAIN THIS NOTICE IF COPIES ARE MADE......THANKS!"
  502. 30040  LPRINT CHR$(140)
  503. 30045  END
  504.